object fRemanent_d: TfRemanent_d Left = 466 Top = 237 BorderStyle = bsSingle Caption = 'fRemanent_d' ClientHeight = 254 ClientWidth = 397 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter PixelsPerInch = 96 TextHeight = 13 object bWyjdz: TButton Left = 312 Top = 216 Width = 75 Height = 25 Caption = '&Wyjd'#378 TabOrder = 0 OnClick = bWyjdzClick end object DBGrid1: TDBGrid Left = 0 Top = 0 Width = 393 Height = 201 DataSource = ds Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit] TabOrder = 1 TitleFont.Charset = DEFAULT_CHARSET TitleFont.Color = clWindowText TitleFont.Height = -11 TitleFont.Name = 'MS Sans Serif' TitleFont.Style = [] Columns = < item Expanded = False FieldName = 'data_dostawy' Visible = True end item Expanded = False FieldName = 'symbol_faktury' Width = 112 Visible = True end item Expanded = False FieldName = 'cena_netto' Width = 71 Visible = True end item Expanded = False FieldName = 'ilosc_aktualna' Width = 99 Visible = True end> end object ds: TDataSource DataSet = tDostawa Left = 80 Top = 64 end object tDostawa: TffTable DatabaseName = 'mr_sklep' FieldDefs = < item Name = 'numer' DataType = ftAutoInc end item Name = 'numer_dostawy' Attributes = [faRequired] DataType = ftInteger end item Name = 'numer_kolejny' Attributes = [faRequired] DataType = ftSmallint end item Name = 'numer_magazynu' Attributes = [faRequired] DataType = ftWord end item Name = 'numer_towaru' Attributes = [faRequired] DataType = ftInteger end item Name = 'ilosc_towaru' Attributes = [faRequired] DataType = ftFloat end item Name = 'ilosc_aktualna' Attributes = [faRequired] DataType = ftFloat end item Name = 'vat' Attributes = [faRequired] DataType = ftCurrency end item Name = 'cena_netto' Attributes = [faRequired] DataType = ftFloat end item Name = 'data_dostawy' Attributes = [faRequired] DataType = ftDate end item Name = 'data_zero' DataType = ftDate end item Name = 'zero' Attributes = [faRequired] DataType = ftWord end item Name = 'st_vat' Attributes = [faRequired] DataType = ftWord end item Name = 'seria' DataType = ftString Size = 14 end item Name = 'data_waznosci' DataType = ftDate end item Name = 'numer_dostawy_p' Attributes = [faRequired] DataType = ftInteger end> SessionName = '[automatic]' TableName = 'dostawa' Timeout = 10000 OnCalcFields = tDostawaCalcFields Left = 120 Top = 64 object tDostawanumer: TAutoIncField FieldName = 'numer' end object tDostawanumer_dostawy: TIntegerField FieldName = 'numer_dostawy' Required = True end object tDostawanumer_kolejny: TSmallintField FieldName = 'numer_kolejny' Required = True end object tDostawanumer_magazynu: TWordField FieldName = 'numer_magazynu' Required = True end object tDostawanumer_towaru: TIntegerField FieldName = 'numer_towaru' Required = True end object tDostawailosc_towaru: TFloatField FieldName = 'ilosc_towaru' Required = True end object tDostawailosc_aktualna: TFloatField FieldName = 'ilosc_aktualna' Required = True end object tDostawavat: TCurrencyField FieldName = 'vat' Required = True end object tDostawacena_netto: TFloatField FieldName = 'cena_netto' Required = True end object tDostawadata_dostawy: TDateField FieldName = 'data_dostawy' Required = True end object tDostawadata_zero: TDateField FieldName = 'data_zero' end object tDostawazero: TWordField FieldName = 'zero' Required = True end object tDostawast_vat: TWordField FieldName = 'st_vat' Required = True end object tDostawaseria: TStringField FieldName = 'seria' Size = 14 end object tDostawadata_waznosci: TDateField FieldName = 'data_waznosci' end object tDostawanumer_dostawy_p: TIntegerField FieldName = 'numer_dostawy_p' Required = True end object tDostawasymbol_faktury: TStringField FieldKind = fkCalculated FieldName = 'symbol_faktury' Size = 15 Calculated = True end end end